PROGRAM 99_Bottles_of_Beer

INTEGER :: bottles

DO bottles = 99, 1, -1

    WRITE(*,*) bottles, "bottles of beer on the wall, ", bottles, "bottles of beer."

    WRITE(*,*) "Take one down and pass it around, ", bottles, "bottles of beer on the wall."

END DO

WRITE(*,*) "No more bottles of beer on the wall, no more bottles of beer."

WRITE(*,*) "Go to the store and buy some more, 99 bottles of beer on the wall."

END PROGRAM 99_Bottles_of_Beer
